home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
comm
/
fido
/
wpl_intro.lzh
/
rexx
/
uupoll.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-01-28
|
1KB
|
66 lines
/* UUPoll.rexx For use with WPL and AmigaUUCP 1.13+ */
/*
* This script allows WPL to handle the dialing for you rather
* than requiring that the line be taken down before each call
*
* Russell McOrmond rwm@Atronx.OCUnix.On.Ca {tigris,alzabo,...}!atronx!rwm
* FidoNet 1:163/109 Net Support: (613) 230-2282 Amiga-Fido Support 1:1/109
* Gateway for .Amiga.OCUnix.On.Ca Current WPL 'keeper of sources'.
*
*/
Options RESULTS
Options failat 99999
RC = 0
parse arg callsystem rest
x=Open('lsys',"UULib:l.sys",'R')
if x=0 then do
say "Error reading UULib:l.sys file!!!"
Exit 1
end
if (callsystem = 'all') | (callsystem = 'hasmail') then spoolfiles=Showdir("uuspool:",'Files')
do forever
Line=ReadLn('lsys')
if EOF('lsys') then Leave
if Left(Line,1)='#' then Iterate
Parse var Line System ' ' Times ' ' Device ' ' Baud ' ' Phone ' ' Junk
if (Times = 'Never') then Iterate
if (callsystem ~= 'all') & (callsystem ~= 'hasmail') & (callsystem ~= System)
then Iterate
if (callsystem = 'hasmail') & ( index(spoolfiles,'C.' || System) < 1)
then Iterate
myhost='SLAVE2'
Address value myhost
'call '||system
if (callsystem ~= 'all') & (callsystem ~= 'hasmail') then Leave
adelay= Getclip('wsched-delay')
if ( words(adelay) == 1) then do
say 'Delay for' adelay 'seconds'
call delay (50*adelay) /* delay for 'quantum' seconds */
end
end
x=Close('lsys')
Exit RC